home *** CD-ROM | disk | FTP | other *** search
/ Sunday Savers: Sharing Fun! I Know My Savior Lives / Sunday Savers: Sharing Fun! I Know My Savior Lives.iso / mac / Xtras / PrintOMatic MX 1.7.3 / PrintOMatic MX (Win32) / -PrintOMatic MX Demo.dir / 00014_docs.ls < prev    next >
Encoding:
Text File  |  2004-04-06  |  1.6 KB  |  52 lines
  1. on mouseUp
  2.   if isXtraInstalled("printomatic") = 0 then
  3.     alert("The PrintOMatic Xtra is not installed. Printing is disabled.")
  4.     exit
  5.   end if
  6.   doc = new(xtra("PrintOMatic"))
  7.   if not objectp(doc) then
  8.     alert("There is no currently selected printer. Printing features are disabled.")
  9.     exit
  10.   end if
  11.   cursor(4)
  12.   setDocumentName(doc, "PrintOMatic MX Documentation")
  13.   setMargins(doc, rect(72, 72, 72, 72))
  14.   w = getPageWidth(doc)
  15.   h = getPageHeight(doc)
  16.   setPageNumSymbol(doc, "├₧")
  17.   setTextSize(doc, 10)
  18.   setTextStyle(doc, "normal,italic")
  19.   setTextJust(doc, "left")
  20.   drawText(doc, "PrintOMatic MX Documentation", point(0, -15))
  21.   setTextJust(doc, "right")
  22.   drawText(doc, "printed" && the date, point(w, -15))
  23.   drawLine(doc, point(0, -12), point(w, -12))
  24.   drawText(doc, "page ├₧", point(w, h + 20))
  25.   newPage(doc)
  26.   setGray(doc, 0)
  27.   drawRect(doc, rect(-2, -24, w + 5, 2), 1)
  28.   setGray(doc, 100)
  29.   top = member("printomatic mx").height
  30.   setColor(doc, 0, 17, 58)
  31.   drawRect(doc, rect(0, 0, getPageWidth(doc), top), 1)
  32.   drawPicture(doc, member("printomatic mx"), rect(0, 0, getPageWidth(doc), top))
  33.   newFrame(doc, rect(0, top + 12, w, h), 0)
  34.   newPage(doc)
  35.   newFrame(doc, rect(0, 0, w, h), 1)
  36.   setTextJust(doc, "left")
  37.   repeat with cmem = the number of member "startdocs" to the number of member "enddocs"
  38.     append(doc, member(cmem))
  39.     pageBreak(doc)
  40.   end repeat
  41.   cursor(-1)
  42.   if word 1 of the text of cast the castNum of sprite the clickOn = "Preview" then
  43.     printPreview(doc)
  44.   else
  45.     if doJobSetup(doc) = 1 then
  46.       updateStage()
  47.       print(doc)
  48.     end if
  49.   end if
  50.   doc = 0
  51. end
  52.